home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / number / numbers.bas < prev    next >
BASIC Source File  |  1995-05-09  |  1KB  |  60 lines
  1. '
  2. 'These routines replace Visual Basic's "missing"
  3. 'binary coded decimal and IEEE string/numeric
  4. 'conversion routines found in QuickBASIC 4.X
  5. 'as well as the BASIC PDS.
  6. '
  7. 'Marquis Computing
  8. '
  9.  
  10. DefInt A-Z
  11.  
  12. Function CVD# (bcd$)
  13.     StrD.S = bcd$
  14.     LSet NumD = StrD
  15.     CVD = NumD.Num
  16. End Function
  17.  
  18. Function CVI (bcd$) As Integer
  19.     StrI.S = bcd$
  20.     LSet NumI = StrI
  21.     CVI = NumI.Num
  22. End Function
  23.  
  24. Function CVL& (bcd$)
  25.     StrL.S = bcd$
  26.     LSet NumL = StrL
  27.     CVL = NumL.Num
  28. End Function
  29.  
  30. Function CVS! (bcd$)
  31.     StrS.S = bcd$
  32.     LSet NumS = StrS
  33.     CVS = NumS.Num
  34. End Function
  35.  
  36. Function MKD$ (AnyNumber As Double)
  37.     NumD.Num = AnyNumber
  38.     LSet StrD = NumD
  39.     MKD$ = StrD.S
  40. End Function
  41.  
  42. Function MKI$ (AnyNumber As Integer)
  43.     NumI.Num = AnyNumber
  44.     LSet StrI = NumI
  45.     MKI$ = StrI.S
  46. End Function
  47.  
  48. Function MKL$ (AnyNumber As Long)
  49.     NumL.Num = AnyNumber
  50.     LSet StrL = NumL
  51.     MKL$ = StrL.S
  52. End Function
  53.  
  54. Function MKS$ (AnyNumber As Single)
  55.     NumS.Num = AnyNumber
  56.     LSet StrS = NumS
  57.     MKS$ = StrS.S
  58. End Function
  59.  
  60.